<%
response.Charset="gb2312"
Dim MM_con1_STRING,conn,title_t,title_d
MM_con1_STRING = "driver={SQL Server};database=xs;server=(local);uid=sa;pwd=123456"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open MM_con1_STRING

function rec(rs,sql)
	set rs = server.CreateObject("ADODB.Recordset")
	rs.Activeconnection = conn
	rs.Source = sql
	rs.CursorType = 0
	rs.Cursorlocation = 3
	rs.LockType = 1
	rs.Open
	if rs.eof and rs.bof then
		rec= false
	else
		rec= true
	end if
end function

function cmd(sql)
	dim cmd1
	set cmd1 = server.CreateObject("ADODB.Command")
	cmd1.ActiveConnection = conn
	cmd1.CommandText = sql
	cmd1.CommandType = 1
	cmd1.CommandTimeout = 0
	cmd1.Prepared = true
	cmd1.Execute()
end function

Sub RW(str)
	Response.Write(str)
End Sub

Sub RW1(str)
	Response.Write(str)
	response.End()
End Sub

Sub RW2(str)
	Response.Write(str & "<br>")
End Sub
function CloseDB()
conn.close
set conn=nothing
end function
%>